10 REM SIEVE
20 FORI=1TO120000
30 FORJ=2TOSQR(I)
40 IFI/J=INT(I/J)GOTO70
50 NEXTJ
60 PRINTI;
70 NEXTI

